home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / dll_gen / mystring / mydeclar.bas < prev    next >
Encoding:
BASIC Source File  |  1995-06-23  |  1.8 KB  |  27 lines

  1. Option Explicit
  2. '**************************************
  3. 'ReplChar replaces a delimiter throughout a delimited string
  4. '(actually it will replace any occurrence of a specified character)
  5. 'This is helpful for switching from comma to tab delimiter for example
  6. 'mydelimitedstring is the original delimited string
  7. 'olddelimiter is a single character, the original delimiter to be replaced
  8. 'newdelimiter is a single character, replacing the original throughout the string
  9. 'returnbuffer is character buffer initialized to a length long enough to hold
  10. '   the original string
  11. 'ibuffersize is the initialized size of the return buffer
  12. 'the function returns an integer representing the string length
  13.  
  14. Declare Function ReplChar Lib "Mystring.dll" (ByVal mydelimitedstring As String, ByVal olddelimiter As String, ByVal newdelimiter As String, ByVal returnbuffer As String, ByVal ibuffersize As Integer) As Integer
  15.  
  16. '**************************************
  17. 'GetEntry accepts a delimited string and puts a desired entry into a return buffer
  18. 'mydelimitedstring is the whole delimited string
  19. 'delimiterstring is the sequence of character(s) that separates each entry
  20. 'idelimiterlength is the number of characters in the delimiter sequence
  21. 'ientrynumber is the number of the desired entry in the character string
  22. 'entrybuffer is a buffer (initialized to Space$(255)) into which the desired entry is placed
  23. 'ibuffersize is the size the buffer is initialized to ex. 255, above
  24. 'the function returns an integer which identifies the character length of the entry returned
  25. Declare Function GetEntry Lib "Mystring.dll" (ByVal mydelimitedstring As String, ByVal delimiterstring As String, ByVal idelimiterlength As Integer, ByVal ientrynumber As Integer, ByVal entrybuffer As String, ByVal ibuffersize As Integer) As Integer
  26.  
  27.